home *** CD-ROM | disk | FTP | other *** search
/ FM Towns: Free Software Collection 11 / FM Towns Free Software Collection 11.iso / t_os / demo / takara / menu1.bas < prev    next >
Encoding:
BASIC Source File  |  1995-08-18  |  811 b   |  32 lines
  1. 5000 SCREEN@ 0:CLS
  2. 5010 '
  3. 5020 PI=3.14159!:C=5
  4. 5030 FOR R=20 TO 35 STEP 15
  5. 5040   FOR I=0 TO 2*PI STEP .1!
  6. 5050     X=235+(75*COS(I)+40*SIN(I))
  7. 5060     Y=320-(75*SIN(I)-80*COS(I))
  8. 5070     CIRCLE (Y,X),R,C,,,,N
  9. 5080   NEXT
  10. 5090   WAIT 50:C=6
  11. 5100 NEXT
  12. 5110 LOCATE 33,12:COLOR 7:PRINT " By T.K.MOSAKU";
  13. 5120 LINE (257,223)-(367,223),PSET,1:LINE (273,246)-(385,246),PSET,1
  14. 5130 LOCATE 20,21:COLOR 4:PRINT"Programmed by T.K.Mosaku Hhorai Hukushima";
  15. 5140 WAIT 150
  16. 5150 '
  17. 5160 '
  18. 5170 *MOZI'
  19. 5180 A$="数学の宝箱・・・不思議がいっぱいつまっているよ"
  20. 5190 NA=LEN(A$)
  21. 5200 FOR I=0 TO NA/2-1
  22. 5210   SYMBOL@(111+18*I,60),MID$(A$,I*2+1,2),1!,1!,5,,,4,20
  23. 5220  BEEP 1
  24. 5230   WAIT 10
  25. 5240  BEEP 0
  26. 5250   WAIT 5
  27. 5260 NEXT I
  28. 5290 WAIT 220
  29. 5300 '
  30. 5301 CHAIN "MENU2.BAS",,ALL
  31. 5302 RUN"MENU2.BAS"
  32.